home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 4: GNU Archives / Linux Cubed Series 4 - GNU Archives.iso / gnu / gawk-3.000 / gawk-3 / gawk-3.0.0 / test / arrayref.awk < prev    next >
Encoding:
AWK Script  |  1993-10-20  |  198 b   |  14 lines
  1.     BEGIN { # foo[10] = 0        # put this line in and it will work
  2.         test(foo); print foo[1]
  3.         test2(foo2); print foo2[1]
  4.     }
  5.  
  6.     function test(foo)
  7.     {
  8.         test2(foo)
  9.     }
  10.     function test2(bar)
  11.     {
  12.         bar[1] = 1
  13.     }
  14.